1 INPUT"[147][144]STARTING ADDRESS";S:INPUT"ENDING ADDRESS";F
2 PRINT"[147]":FORI=STOS+47STEP6
3 IFI>FTHENNEXT:PRINT"GOTO 7":GOTO6
4 PRINTI;"DATA";:FORJ=0TO5:R$=STR$(PEEK(I+J)):PRINTRIGHT$(R$,LEN(R$)-1);",";
5 NEXTJ:PRINTCHR$(20):NEXTI:PRINT"S="S+48"[157]:F="F"[157]:GOTO 2"
6 POKE198,10:FORK=1TO10:POKE630+K,13:NEXTK:PRINT"":END
7 PRINT"[147]":FORM=1TO8:PRINTM:NEXTM
8 POKE198,8:FORK=1TO8:POKE630+K,13:NEXTK:PRINT"":END